﻿Partial Class Sprite

    Public Random As New Random(System.DateTime.Now.Millisecond)
    Public attackTimerTicked As Boolean = True
    Public Target As Sprite
    Public SpawnID As String = "11111" ' Model Type
    Public ModelType As String = "Default" ' Model Type
    Public SpawnTimer As Integer = 10
    Public SpawnLoc As New Vector4(1, 1, 1, 11) ' MM,XX,YY,ZZ    MM = Map, & X,y,z coordinates
    Public SpawnOnLoad As Boolean = True 'For Triggered Sprites
    Public IsDead As Boolean = False
    Public IsPlayer As Boolean = False
    Public isAttacking As Boolean = False
    Public Stats As New Stats
    Public WithEvents attackTimer As New System.Timers.Timer With {.AutoReset = True}
    Public Delegate Sub ab(ab As Sprite, e As Integer)
    Dim a As New ab(Sub(ab As Sprite, e As Integer) RaiseEvent XEvent(ab, e))
    Public Event XEvent(ByVal a As Sprite, e As Integer)
End Class
